var
  a, k, i: integer;
  b: longint;
begin
    read(a, k);
    b := 1;
    for i := 1 to k do
      b := b * a;
    writeln(b);
end.